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Frequency Distributions (SADOI Only) 

Entire Program 

The routine will read a set of n signed integers. These 
integers will be grouped in ranked categories where the 
lower boundary of a category is B + k I. B and I are 
parameters | k takes on values from through 99* When 
the terminating symbol, N, at the end of the data tape is 
read, the routine will print a frequency chart with a bar 
graph alongside. The width of the bar graph is auto- 
matically adjusted so as to not exceed the width of the 
teletype paper. 

MKcimum number of categories is 100. No other restrictions, 

(if d + kO) n + 650 C milliseconds 

ds digits per integer 

n: number of integers 

Cs number of categories 

Add 50 seconds for input of master and parameter tapes. 



lo Ulster tape 

2. Parameters 2kHS 

3o Data tape 2^11N 

A. Additional data tapes using the same parameters may be 
read by raising the black switch 

B. If a number of distributions are to be constructed, run 
on stop disable and terminate data tape with a J. Routine 
will end on OF. To continue with new parameters, raise 
white switch. 

C. To change parameters either at a J stop or an N stop, 
raise the white switch. 

The parameter tape consists of two signed integers 
terminated by an N. The first parameter, B, is the lower 
boundary of the lowest category. The second parameter, 
I, is the increment between boundaries. 

The data tape consists of signed integers terminated by 
an N. If several distributions using the same parameters 
are to be constructed, a J after the final N will enable 
the operator to run on stop disable. 

The program tape is sum-checked during input. A failure 
to input the program correctly will result in an FF stop 
from location 1^3-ig* 



Frequency Distributions 



- 2 



EXAMPLE: 



NOTES: 



A. Parameter tape 
B» Data tape 
C. Results 



+3O*-3-10-2Of>O-df>10-7-6+25+l+2+154aQH 



NO* 

1 
2 
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k 

5 
6 

TOTAL j 



RANGE: 

LOWER 
LIMIT 

-20 
-10 
+0 
+10 
420 
+50 



DISTRIBUTIONS 

-30 TO +970 



FREQUENCY 

1 
k 
6 
2 

2 
1 

16 



BAR <2tAPH 



= EQUAIS 1 



1. If any number in the set" are outside the bounds of B, the 
lower limit, and B + 991 • the upper limit j these numbers f 
will be printed out as errors. ( 

2. If the parameters f B and I, are terminated by a J 
instead of an N, the width of the bar graph will no longer 
be automatically adjusted. Digits following the J will be 
read in until the first fifth-hole character appears. 
These digits will form an integer which is equal to one 
unit of the bar graph. 



RT: 2/3/60 



DAT E December k, 1958 
SUBMITTED WJJam. UP&fric£*** \ 
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Sym 
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003K 




3 
4 




(B) 
(I) 


OOF OOF 
OOF OOF 


(by (1) 


(B) Lower boundary ^ 
(i) Increment between boundaries 




5 




(«) 


OOF OOF 




(=) Adjustment on bar graph 




6 




(F) 


00400F 00400F 


(F) Address of frequency chart 




7 


j(s) 


OOF 00505F 


(s) Address of set of numbers 




8 




S-S 


' 00505F 00505F 






9 




(T) 


40102 3F L521(N12) 


(T) Test for N12 




10 




(Ml 


40F L521(N12) 


(Nl) To calculate final address 


f 
• 


11 




(H2 


26 (n) OOF 


» 


(N2) To transfer out of N12 


K 


12 




(N3 


' OOF OOF 




(N3) Temporary storage for N12 




13 




(u) 


OOF OOF 


by (1) 


(u) Upper limit 




14 




(E) 


OOF OOF 




(E) Upper address of numbers 




15 




(El 


1 OOF 0O1023F 






16 




(ua; 


1 OOF OOF 




(UA) Upper address of frequency chart 


17 

r 




(IA 


l OOF OOF 




(LA) Lower address of frequency chart 


ia 




(L) 


OOF OOF 




(L) Total Frequency 




19 




(X) 


OOF OOF 




(X) B ♦ kl 




20 




(Y) 


OOF OOF 




(Y) F + k(l-l) 




21 




(M) 


OOF OOF 








22 




(J) 


OOF OOF 




(j) Adjustment on bar graph if not 


' automat i 


23 




(-) 


OOF 0010F 




(-) 10 x 2" 59 




24 




(10 


OOF OOF 




(10) Category number 




25 




(11 


OOF OOF 




(11) Largest f 
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(12 


OOF OOF 




(12) Temporary storage 




27 




100 


OOF 00100F 






28 




1-1 


001F 001F 








29 




(55: 


OOF 0O52F 




(55) Number spaces per line of tel< 
bar graph 


itype for 


30 




Pl6 


OOK 








86 




H12 


OOK 








125 





00 


OOK 

L4(U12) 46 

• 


»21(N12) 
from 22 (H2) 


(N) Appendage for N12 
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Abs. 


Rel. 


Sym. 


LL(T) Ltelj 


;m2) 
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2 




36 3L 2623 (KL2) 






3 




L5F 4o(lO) 
L51F 40(11) 


Memory is filled $ 
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transfer to (Zl) to 




5 




L52F 40(12) 


assign numbers to 




6 




50F 506L 


categories • 
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26(Zl) L5(S) 
0020F 462l'(B12) 






8 








9 




L5(10) 40i| 
L5(ll) 401F 






1° 
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L5(12) 402F 
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264 (N12) OOF 


transfer back to (N12) 








OOK 




To clear former frequency 


138 




1 
2 

3 

4 


(CL) 


K5F 424L 
L55L 422L 
4lF 4lF 
F52L 422JL 
L06L 32F 


from (2) 






5 




222L 00400F 


Initial clear 


145 


6 



1 


(zi) 


4U 41501F 

OOK 

K5F 4218L 

L5(S) 425L 


from 7(N), J 


Final clear 
To tally frequencies 

+(z) 


• 


2 




2613(3) 4219L 






3 




L5(B) 4o(x 


) 






4 




L5(F) lo(i-Jl) 






.5 




40 (Y) L5F 








6 




40 (M) LO(U 


) 






7 




369L L4(U) 








8 




LO(X) 3620] 








9 




92131F 92259F 
1 


Errors // U 
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92194F 92262F 


or / B 
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925T8F 92258F 
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Rel. 
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92707F 92835F 
9296IF L5(M) 
525F 5014L 
26(Pl6) 92131F 
92515F F55L 
425L L019L 
363L 22F 
NO(Y) L5F 

L5(M) LO(X) 
3224L L5(Y^ 
462}L U223L 
F5F 40F 
2216L L5(X) 

l4(i) 4o(x) 

L5(Y) iA(lil) 
40 (Y) 262o£ 



Print errors 



OOK 

K5F 4265L 
kl (L) L5(S) 
FO(L) 424l| 
41(10) 50 3L 
26 (Zl) L3F 
566L 269L 
L54L FO(L) 
424L 224l 
Nl(ll) L5F 
L5(F) 4212L 
15(B) 40 (X) 
F54L 42 (UA) 
428L L3F I 
3614L 2617L 
L5(X) L4(I) 



Assign frequency 



fron 10(3) 



To print frequency chart 
and bar graph 



Determine lower and 
upper addresses of 
frequency chart 
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Abs. 


Rel. 


Sym. 
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1*0 (X) F512L 

i 






16 1 


1+212L 2212L 








17 


L512L 42 (LA) 


• 






18 




1*2 36L 2666L 








19 




1+1(11) L5F|by 2l*L 






193 


20 
21 




1*0(12)IA(L) 
1*0 (L) L5(ll) 


Sum f at (L) 
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ID(12) 3624L 


Largest f at (11 ) 






23 




L5(12) 1*0(11) 








2k 




F519L 1*219L 








25 




L08L 3219l| 








26 




L3(J) 3228L 


Test: automatic? 






27 




L5(/) to(=) 








28 




263IL F5(l6) 








29 




l*0(=) 2669i 








30 


(/) 


OOF OOF by (l) 








31 




F5(10) 1*2(10) 








32 




J22F 5032L 1 








33 




26(pi6) 9296IF 


Print category number 






3^ 




001F L5(X) 










35 




525F 5035L 










36 




26(Pl6) L5F 


Print lower boundary j 






37 




1*0(12) 50F 




1 






38 




J25F 5038L 










39 




26(Pl6) 92969F 
| 


Print frequency i 
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ko 




LI (12) 32l*^L 


I 






1+1 




92579F L5(12) 


Print: bar graph . ) 






1*2 




L0( = ) 1+0(12) 








!*3 




361*OL 921 31F 
1 


i 






W* 




92519F F536L 


! 

! 






^5 




1*2 36L L5(X] 




I 






i*6 




Li*d) i*o(x: 
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**7 




F5(LA) 1*2 (LA) 
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LO(UA) 321+9L 
1 
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KSI/4.G0 



2631L 9^131F 
1 

92259F 92965F 
92322F 92578F 

92322F 92387F 
1 

92962F 92707F 
92835F L5(L) 
527F 5055L 
26(Pl6) 92969F 
92579F 92965F 
922 59F 9219^F 
9266F 924^0F 

92387F 92962F 

92706F 92707F 

9296IF L5(=) 

J22F 5063L] 

26(Pl6) 92135F 

92519F 22F 

i^219L k-2F from l8L 

L5F LO(S) 

3256L 2619L 

L5(55) LO(ll) from 291 

363IL L5(ll) 

LO(55) Uo(ll) 

F5( = ) ^( = ) 

2669L OOF 

OOK 

52(B) 50L 
26(N12) hO (J ) 
L3(J) 3610L 
UllF 91^F 
326L 22 3L 
91^F 326L 
269L 501F 
7M-) S5F 
401F 265L 



Print: total frequency 



Print: adjustment 



Form adjustment 



Input parameters at (b) and (i) 
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Abs. ] 


Rel. 1 


3ym. 


L51F 40(/) 
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L522(N12) 4o(N3) 


Change (N12) to transfer to (N) 
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L5(N2) 4022 (N12) 
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Print: Distributions 
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9259F 9259F 
92135F92259F 
92997F 9267F 
92514F 92706F 
92322F 92258F 
92514F 92195F 
92450F 92322F 
92514F 92578F 
9277OF 92706F 
921 31F 92519F 
9298IF 92258F 
92387F 92770F 
92579F 92194F 
92707F 92835F 
92965F L5(B) 
52UF 5015L 




and range 
Print lower boundary,. (B) 
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26(Pl6) 92965F 








17 




. 92259F 92322F 










18 




92578F 92707F 
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92965F 50(1) 




Calculate upper limit, (U) 




1, 


20 
21 
22 




75(100) L5(B) 
54f 4o(U) 
524F 5022L 




Print upper boundary, 
(B + 991) • 
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2b(Pl6) 92139F 








24 




92515F 24(2) 
OOK 




Stop for data tape 
Print captions 
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1 
2 


(2) 


92259F 92770P 
92578F 92707^ 
92643F 922595 
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tel. Sym. 


92965F 92962J 
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92578F 92130F 
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15 
16 

17 
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19 
20 
21 
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9219^F 92258F 
92965F 92898F 
92258F 92194F 
9266F 92450F 
92194F 9277OF 
92835F 92386F 
92969F 92195F 
92387F 92258F 
92961F 92579F 
92258F 92387F 
922F 92771F 
92131F 92519F 
92977F 92962F 
92514F 92643F 
92514F 92322F 
92707F 92135F 
92519F 5021L 
26(CL) 26(3) 

OOK 




Clear former 
frequencies 

Main routine 
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(3) 


L5 (S-S) 462L 
L5(El) 4o(e) 
52F 502L 
26(N12) 40F 




Read numbers 








^ 




L3F 325L 


1 


tests J or N 
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2612L L521(N12) 










6 




LO(Nl) 1020F 












7 




4o(e) 50 7L 












8 




26 (z) 92139F 












9 




24(2) 92139F 




Stops end of distr 


ibution 
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921001F L5(N3)| 
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Abs. 


Rel. 


Sym. 


^022(N12) 


26(1) 








11 






12 




OFF 2610L 


from 5L 


Stops end of set 
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lo(e) 3218 (Zl) 
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L5(E) 222 (Zl) 












OOK 
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1 




L3F 3^(1) 
FFF 26(1) 




Stop reading master; start at 


a) 




2 




F20996F 7F1469F 


Sum check 











26L 26lK 
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